COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "MASTER"
C00003 00003		INTEGER B1,B2
C00004 ENDMK
C⊗;
BEGIN "MASTER"
	REQUIRE "SYS:GLBSG7" SEGMENT_FILE;
	REQUIRE "BGBTST" SEGMENT_NAME;
	GLOBAL INTEGER RESULT;

	FORWARD MESSAGE PROCEDURE GEODPY;
	FORWARD MESSAGE PROCEDURE MKCUBE(REAL A,B,C);
	FORWARD MESSAGE PROCEDURE TRANSL(INTEGER Q;REAL A,B,C);
	FORWARD MESSAGE PROCEDURE ROTATE(INTEGER Q;REAL A,B,C);

	INTEGER MESS;

PROCEDURE MKSLAVE;
BEGIN "MKSLAVE"
	INTEGER I;
	I ← PTYGET;
	PTOSTR(I,"L SAI.BGB"&13&10);
	PTYSTR(I,"↑");
	PTYSTR(I,".");
	PTOSTR(I,"RU SLAVE"&13&10);
	PTYSTR(I,"*");
END "MKSLAVE";
	INTEGER B1,B2;

	MKSLAVE;
	ISSUE(7,"MASTER","SLAVE",MESSAGE GEODPY);
	ISSUE(7,"MASTER","SLAVE",MESSAGE MKCUBE(2,4,8));
	B1 ← RESULT;
	ISSUE(7,"MASTER","SLAVE",MESSAGE TRANSL(B1,2.1,0.3,0));
WHILE TRUE DO
BEGIN
	ISSUE(7,"MASTER","SLAVE",MESSAGE GEODPY);
	ISSUE(7,"MASTER","SLAVE",MESSAGE ROTATE(B1,0.1,0.1,0));
END;

END "MASTER";